home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Assess.Dxr / Internal_21_Exp rollover frame 2.ls < prev    next >
Encoding:
Text File  |  1998-04-24  |  895 b   |  36 lines
  1. global gMasterData, grollerList, gLastRoller, gLastMC
  2.  
  3. on exitFrame
  4.   set thisMC to the mouseCast
  5.   if thisMC <> gLastMC then
  6.     set thisName to the name of member thisMC
  7.     if thisName contains "roll" then
  8.       go(the frame)
  9.       exit
  10.     end if
  11.     set rollTest to 0
  12.     set rollList to getProp(grollerList, #sprites)
  13.     repeat with X in rollList
  14.       if thisMC = the memberNum of sprite X then
  15.         set rollTest to 1
  16.         set hotSprite to X
  17.         set thisName to the name of member thisMC
  18.         exit repeat
  19.       end if
  20.     end repeat
  21.     if rollTest then
  22.       showRoller(hotSprite, thisName)
  23.       showBalloon(thisName)
  24.       rollSound(hotSprite, thisName)
  25.       if hotSprite <> gLastRoller then
  26.         puppetSprite(gLastRoller, 0)
  27.         set gLastRoller to hotSprite
  28.       end if
  29.     else
  30.       clearRollers()
  31.       clearBalloon()
  32.     end if
  33.   end if
  34.   go(the frame)
  35. end
  36.